home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Programming / LEDA / DaggeX / system.twmrc < prev    next >
Text File  |  1993-12-08  |  2KB  |  90 lines
  1. #
  2. # $XConsortium: system.twmrc,v 1.8 91/04/23 21:10:58 gildea Exp $
  3. # 
  4. # Default twm configuration file; needs to be kept small to conserve string
  5. # space in systems whose compilers don't handle medium-sized strings.
  6. #
  7. # Sites should tailor this file, providing any extra title buttons, menus, etc.
  8. # that may be appropriate for their environment.  For example, if most of the
  9. # users were accustomed to uwm, the defaults could be set up not to decorate
  10. # any windows and to use meta-keys.
  11. #
  12.  
  13. NoGrabServer
  14. RestartPreviousState
  15. DecorateTransients
  16. TitleFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  17. ResizeFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  18. MenuFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  19. IconFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*-*-*-*"
  20. IconManagerFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*"
  21. #ClientBorderWidth
  22.  
  23. Color
  24. {
  25.     BorderColor "slategrey"
  26.     DefaultBackground "maroon"
  27.     DefaultForeground "gray85"
  28.     TitleBackground "maroon"
  29.     TitleForeground "gray85"
  30.     MenuBackground "maroon"
  31.     MenuForeground "gray85"
  32.     MenuTitleBackground "gray70"
  33.     MenuTitleForeground "maroon"
  34.     IconBackground "maroon"
  35.     IconForeground "gray85"
  36.     IconBorderColor "gray85"
  37.     IconManagerBackground "maroon"
  38.     IconManagerForeground "gray85"
  39. }
  40.  
  41. #
  42. # Define some useful functions for motion-based actions.
  43. #
  44. MoveDelta 3
  45. Function "move-or-lower" { f.move f.deltastop f.lower }
  46. Function "move-or-raise" { f.move f.deltastop f.raise }
  47. Function "move-or-iconify" { f.move f.deltastop f.iconify }
  48.  
  49. #
  50. # Set some useful bindings.  Sort of uwm-ish, sort of simple-button-ish
  51. #
  52. Button1 = : root : f.menu "defops"
  53.  
  54. Button1 = m : window|icon : f.function "move-or-lower"
  55. Button2 = m : window|icon : f.iconify
  56. Button3 = m : window|icon : f.function "move-or-raise"
  57.  
  58. Button1 = : title : f.function "move-or-raise"
  59. Button2 = : title : f.raiselower
  60.  
  61. Button1 = : icon : f.function "move-or-iconify"
  62. Button2 = : icon : f.iconify
  63.  
  64. Button1 = : iconmgr : f.iconify
  65. Button2 = : iconmgr : f.iconify
  66.  
  67. #
  68. # And a menus with the usual things
  69. #
  70. menu "defops"
  71. {
  72. "Twm"    f.title
  73. "Iconify"    f.iconify
  74. "Resize"    f.resize
  75. "Move"        f.move
  76. "Raise"        f.raise
  77. "Lower"        f.lower
  78. ""        f.nop
  79. "Focus"        f.focus
  80. "Unfocus"    f.unfocus
  81. "Show Iconmgr"    f.showiconmgr
  82. "Hide Iconmgr"    f.hideiconmgr
  83. ""        f.nop
  84. "Kill"        f.destroy
  85. "Delete"    f.delete
  86. ""        f.nop
  87. "Restart"    f.restart
  88. "Exit"        f.quit
  89. }
  90.